home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Elan performer v2.0.adf / Recorder / stop.rexx < prev   
OS/2 REXX Batch file  |  1978-10-16  |  544b  |  20 lines
  1. /* Rev 6.15.90 */
  2. Say ""
  3. if ~show('Ports','PERFORMER') then do
  4.     if show('Ports','KEYPORT') then do
  5.         x = RemLib("rexxsupport.library")
  6.         If addlib("rexxsupport.library",0,-30,0) then Do
  7.             call openport "PERFORMER" 
  8.             if show('Ports','PERFORMER') then do
  9.                 Address Keyport
  10.                 'PERFORMERPIC 55'
  11.                 call waitpkt('PERFORMER')
  12.             end
  13.         end
  14.         else Say "The ARexx RexxSupport.library must be installed in libs directory."
  15.     end
  16.     else say "Recorder is no longer active."
  17. end
  18. else say "Please quit Elan Performer 2.0 before pressing Stop."
  19.  
  20. exit(0)